home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / PRIME.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  768 b   |  24 lines
  1. 100  '*******************************************************
  2. 110  '**              PRIME NUMBER GENERATOR               **
  3. 120  '**  VERSION 1.1                    12 DECEMBER 1982  **
  4. 130  '*******************************************************
  5. 140  '
  6. 150  CLS
  7. 160  DEFINT A-Z
  8. 170  DIM A(10000)
  9. 180  A(1) = 3
  10. 190  A(2) = 5
  11. 200  LATESTELEMENT = 2
  12. 210  POINTER = 7
  13. 220  TEST = 0
  14. 230  IF A(TESTELEMENT)<SQR(POINTER) THEN TESTELEMENT=TESTELEMENT + 1 : GOTO 230
  15. 240  FOR X = 1 TO TESTELEMENT
  16. 250  IF POINTER MOD A(X) = 0 THEN TEST = 1
  17. 260  NEXT
  18. 270  IF TEST = 1 THEN 310
  19. 280  LATESTELEMENT = LATESTELEMENT + 1
  20. 290  A(LATESTELEMENT) = POINTER
  21. 300  PRINT POINTER;
  22. 310  POINTER = POINTER + 2
  23. 320  GOTO 220
  24.